000100******************************************************************
000200*PROGRAM : Main menu                                             *
000300*AUTHOR  : Minh-Tuan Ta                                          *
000400******************************************************************
000500 IDENTIFICATION DIVISION.
000600 PROGRAM-ID. MAINMENU.
000700 ENVIRONMENT DIVISION.
000800 DATA DIVISION.
000900 WORKING-STORAGE SECTION.
001000 01  WS-VARS.
001100     03  WS-DATE.
001200         05  WS-YEAR         PIC 99.
001300         05  WS-MONTH        PIC 99.
001400         05  WS-DAY          PIC 99.
001500     03  WS-SEL              PIC X.
001600 SCREEN SECTION.
001700 01  MENUSCRN.
001800     03  BLANK SCREEN.
001900     03  MENU.
002000         05  LINE 1  COL 01 VALUE "ENROLLMENT MANAGEMENT- MAIN MEN
002100-            "U".
002200         05          COL 73 PIC 9(2) FROM WS-MONTH.
002300         05          COL 75 VALUE "/".
002400         05          COL 76 PIC 9(2) FROM WS-DAY.
002500         05          COL 78 VALUE "/".
002600         05          COL 79 PIC 9(2) FROM WS-YEAR.
002700         05  LINE 6  COL 34  VALUE "ENROLLMENT MANAGEMENT".
002800         05  LINE 8  COL 39  VALUE "MAIN MENU".
002900         05  LINE 10 COL 29  VALUE "1 REGISTRATION".
003000         05  LINE 11 COL 29  VALUE "2 REPORTS".
003100         05  LINE 12 COL 29  VALUE "3 INQUIRY".
003200         05  LINE 13 COL 29  VALUE "4 ADD".
003300         05  LINE 14 COL 29  VALUE "5 CHANGE".
003400         05  LINE 16 COL 31  VALUE "SELECTION (X=EXIT)".
003500         05  LINE 24 COL 32  VALUE "(9=BUILD ISAM)".
003600         05  LINE 16 COL 29  PIC X TO WS-SEL AUTO.
003700 01  ENDPROG.
003800     03  BLANK SCREEN.
003900     03  LINE 12 COL 32 VALUE "PROGRAM TERMINATED".
004000
004100 PROCEDURE DIVISION.
004200 100-MAIN.
004300     ACCEPT WS-DATE FROM DATE
004400     PERFORM UNTIL WS-SEL = 'X' OR 'x'
004500         DISPLAY MENUSCRN
004600         ACCEPT  MENUSCRN
004700         EVALUATE WS-SEL
004800             WHEN '1'
004900                 CALL 'REGSTU'
005000             WHEN '2'
005100                 CALL 'RPTMENU'
005200             WHEN '3'
005300                 CALL 'INQMENU'
005400             WHEN '4'
005500                 CALL 'ADDMENU'
005600             WHEN '5'
005700                 CALL 'CHGMENU'
005800             WHEN '9'
005900                 CALL 'BUILDPRG'
006000         END-EVALUATE
006100     END-PERFORM
006200     DISPLAY ENDPROG
006300     STOP RUN.
006400
